home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / demos / 442 / scape.cyb < prev    next >
Text File  |  1985-11-19  |  9KB  |  1 lines
  1.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 path-is A:\ scratch-image SCAPE00P \                            $const .PC1 .PC1"  .PC1 .PIN $!  key-brk off                    image SCAPE00 SCAPE00 palette-data SCAPE00P palette-data expand SCAPE00 release scratch-image SCAPE20P \                        image SCAPE20 SCAPE20 palette-data SCAPE20P palette-data expand SCAPE20 release scratch-image SCAPE30P \                        image SCAPE30 SCAPE30 palette-data SCAPE30P palette-data expand SCAPE30 release   delta TITLE  delta SCAPE00D                   delta SCAPE10D  delta S20_ERAS  delta SCAPE20D  delta SCAPE30D  sound DOPPLER2  sound DIZZOUT   sound THUNDER  sound TFORM1B    sound MOTOR2 sound TFORM1 sound TFORM2 Sound REZUP sound ZAPP   sound SNAP sound CRACKLE sound BUZZ scratch-image IMG \         variable A-FRAME 2var N-FRAME 2var FRAME-P variable speed08      hex create pal2 0 , 100 , 210 , 321 , 432 , 543 , 654 ,         740 , 101 , 102 , 203 , 304 , 305 , 306 , 307 , 740 , decimal   palette vpal palette pal17  200 doppler2 priority     -->      \ Random Frame Access                                           : Set-Adv00 SCAPE00P image-data img image-data copy  ;          : X-IMG img image-data img image-data xor-copy ;                : ADV30 a-frame ! SCAPE30D delta-data frame-p 2!                  img image-data frame-p a-frame @ advance ;                    : ADV20 a-frame ! SCAPE20D delta-data frame-p 2!                  img image-data frame-p a-frame @ advance ;                    : ADVTI a-frame ! TITLE delta-data frame-p 2!                     img image-data frame-p a-frame @ advance ;                    : ADV00 a-frame ! Set-Adv00 SCAPE00D delta-data frame-p 2!        img image-data frame-p a-frame @ advance ;                    : ADV10 a-frame ! SCAPE10D delta-data frame-p 2!                  img image-data frame-p a-frame @ advance ;                    : NTH-FRAME drop -rot 2drop dup >r 2@ rot 0 do 2dup l@            6 * 2+ s>d d+ loop r> 2! 0 ;  : Xt 1 end-flag ! ;             : SEC 0 do 100 0 do 750 0 do loop loop loop ;       -->                                                                         : 00OLD-VEC ['] do-delta SCAPE00D update-mode ;                 : 00NTH-VEC ['] nth-frame SCAPE00D  update-mode ;               : 10OLD-VEC ['] do-delta SCAPE10D update-mode ;                 : 10NTH-VEC ['] nth-frame SCAPE10D  update-mode ;               : 30OLD-VEC ['] do-delta SCAPE30D update-mode ;                 : 30NTH-VEC ['] nth-frame SCAPE30D  update-mode ;               : ACCL24 1000 =tick if 100 SCAPE30D rate then ;                 : 00-NTH  SCAPE00D reset 00nth-vec SCAPE00D next-frame drop       00old-vec ;  : ACCL17 1700 =tick if 10 SCAPE20D rate then ;   : 10-NTH SCAPE10D reset 10nth-vec SCAPE10D next-frame drop        10old-vec ;  : ACCL17A 1760 =tick if 70 SCAPE20D rate then ;  : 30-NTH  SCAPE30D reset 30nth-vec SCAPE30D next-frame drop       30old-vec ;  : G-Diz gem-screen gem-screen xor-dissolve ;                       -->                                                                                                                                                                           : GET10 ['] copy img image-mode x-img set-adv00 51 adv00 ;      : LOOP-10  0 ZAPP snd-array zero-clock tick 12 0 do               4801 i 400 * - speed08 ! 13 0 do SCAPE10D next-frame drop       i 6 = if ZAPP play then speed08 @ 0 do loop loop img show2      SCAPE10D  reset ZAPP reset loop 4 0 do 13 0 do                  SCAPE10D next-frame i 6 = if ZAPP play then loop depth ndrop    img show2 SCAPE10D reset ZAPP reset loop 1 end-flag ! tock ;  : vpal! 2 * vpal + ! ; : vpal@ 2 * vpal + @ ; 0 snap snd-array  : pal2! 2 * pal2 + ! ; : pal2@ 2 * pal2 + @ ;                   : PAL2@! 16 1 do i pal2@ vpal i 2* + ! vpal palette-regs pal>   15000 0 do loop  loop ; 0 thunder snd-array 0 crackle snd-array create flash# 10000 , 900 , 3000 , 9000 , 28000 , 18000, 8000 , : Dizound TFORM1 play TFORM1 reset DIZZOUT play DIZZOUT reset ; : Dopp2. zero-clock tick DOPPLER2 play DOPPLER2 reset Xt tock ; : Dizz. zero-clock tick DIZZOUT play DIZZOUT reset Xt tock ; -->                                                                : Flash17 zero-clock tick 7 0 do SCAPE20P set-palette flash#    i 2* + @ 0 do loop palette-regs pal17 >pal 1911 2 2 * pal17 + ! pal17 palette-regs pal> snap play crackle play flash#           i 2* + @ 4 / 0 do loop snap reset crackle reset thunder reset   loop SCAPE20P set-palette 1 end-flag ! tock ;                   : SndA1 0 TFORM1 snd-array 0 DIZZOUT snd-array 0 REZUP          snd-array  0 TFORM1B snd-array  0 BUZZ snd-array ;              : SndR1 TFORM1 reset DIZZOUT reset REZUP reset                  TFORM1B reset BUZZ reset ; : SndA2 0 ZAPP snd-array             0 BUZZ snd-array 0 CRACKLE snd-array 0 TFORM2 snd-array         0 DOPPLER2 snd-array 0 SNAP snd-array 0 THUNDER snd-array ;     : SndR2 ZAPP reset BUZZ reset CRACKLE reset                         TFORM2 reset DOPPLER2 reset SNAP reset THUNDER reset ;      : Tforms. 0 TFORM1B snd-array zero-clock tick Dizound             TFORM1B play TFORM1B reset Xt tock ;           -->                                                                            : Shock SndA2 zero-clock tick BUZZ play 30 0 do 8 0 do 7 random 32 + 30-nth SCAPE30D next-frame drop SNAP play SNAP reset loop  500 0 do loop SCAPE30D reset pal2 palette-regs pal> 3 0 do      7 random 32 + 30-nth SCAPE30D next-frame drop CRACKLE play      CRACKLE reset loop SCAPE30P set-palette loop Xt tock SndR2 ;    : SCAPE ['] copy img image-mode 1600 800 440 TFORM1B snd-array  60 SCAPE30D rate 15000 SCAPE30D stop SndA2 SCAPE30P show1       Dopp2. 4 sec zero-clock tick DOPPLER2 play TFORM1B play accl24  SCAPE30D update tock SCAPE30D reset SndR2 TFORM1B reset         Shock Dizz. SCAPE30P image-data img image-data copy 39 adv30    img show2 x-img pal2@! pal2 palette-regs pal> Dizz. 1 sec 32    30-nth 150 SCAPE30D rate Dizz. zero-clock tick SCAPE30D update  tock SCAPE30D reset -1. color-cycle SCAPE30P cycle Dizz. 7 sec  Tforms. gem-screen gem-screen xor-dissolve  -1. color-cycle     pal2 palette-regs pal>  SCAPE30D reset  ;   -->                                                                                 : BER 90 60 0 TFORM1 snd-array  290 270 0 TFORM2 snd-array          1500 MOTOR2 snd-array 2200 2000 DOPPLER2 snd-array              500 S20_ERAS rate 1059 S20_ERAS start 10000 S20_ERAS stop       40 SCAPE20D rate  60 SCAPE00D rate 2821 SCAPE00D stop           9560 SCAPE20D stop  Get10   zero-clock                          tick MOTOR2 play DOPPLER2 play TFORM1 play TFORM2 play          SCAPE00D update tock    MOTOR2 reset DOPPLER2 reset             TFORM1 reset TFORM2 reset  LOOP-10  1940                     1800 1700 TFORM1 snd-array  1500 1400 300 0 doppler2 snd-array     SCAPE20P show1  flash17 zero-clock                              tick  Accl17 Accl17a DOPPLER2 play  TFORM1 play                 SCAPE20D update  S20_ERAS update                                tock  Flash17 1 sec                                             S20_ERAS reset DOPPLER2 reset TFORM1 reset  SCAPE00D reset      TITLE reset S20_ERAS reset SCAPE20D reset SCAPE ;  -->                                                                      : CY SndA1 ['] xor-dissolve img image-mode 0 setrez curs-off    SCAPE00P set-palette palette-regs vpal >pal 4 00-NTH zero-clock tick 2 sec Dizound 1 advTI img show2 X-IMG DIZZOUT play DIZZOUT reset gem-screen gem-screen xor-dissolve Dizound TFORM1B play 2 advTI img show2 X-IMG 1 sec DIZZOUT play BUZZ play Set-Adv00 img show2 X-img 2 advTI img show2 X-IMG ['] dissolve img image-mode REZUP play  REZUP reset 1 adv00 img show2 X-img REZUP play     REZUP reset 2 adv00 img show2 X-img REZUP play 3 adv00 img show2 X-img 4 adv00 img show2 X-IMG 1 end-flag ! tock SndR2 BER ;    : Credix Get10 ['] xor-dissolve img image-mode 0 setrez          curs-off SCAPE00P set-palette  Cred1 15 sec G-Diz Cred2 25 sec  G-Diz Cred3 img show2 20 sec ['] dissolve img image-mode        img show2 G-Diz x-img ;                                        : DO-CYB begin CY CREDIX 1 0 = until ;  DO-CYB